home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasic_1.zip / BAS_LIST.EXE / DICE.BAS < prev    next >
BASIC Source File  |  1992-06-28  |  130b  |  7 lines
  1. CLS
  2. RANDOMIZE TIMER
  3. x% = INT(RND * 6) + 1
  4. y% = INT(RND * 6) + 1
  5. PRINT "roll of two dice: die 1 ="; x%; "and die 2 ="; ; y%
  6.  
  7.